From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Jun 1993 23:43:57 +0000 (+0000)
Subject: (etags-tags-completion-table): When skipping the noise
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95358
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bcd54802d58f297e4b664a00af12452e91da3687;p=emacs.git

(etags-tags-completion-table): When skipping the noise
before the tag name, let it end with any char not allowed in a tag.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 70dcd9a557d..e72fdb3e7cd 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -915,7 +915,8 @@ See documentation of variable `tags-file-name'."
       ;;   \6 is not interesting;
       ;;   \7 is the explicitly-specified tag name.
       (while (re-search-forward
-	      "^\\(\\(.+[ \t]+\\)?\\([-a-zA-Z0-9_$]+\\)[^-a-zA-Z0-9_$]*\\)\177\
+	      "^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$]+\\)\
+\[^-a-zA-Z0-9_$]*\\)\177\
 \\([0-9]+\\),\\([0-9]+\\)\\(,\001\\([^\n]+\\)\\)?\n"
 	      nil t)
 	(intern	(if (match-beginning 6)